home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / srefv112.zip / SREFPRC1.ZIP / MSPACE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-09  |  1KB  |  48 lines
  1. /*  */
  2.  
  3. parse  upper arg isdel isfil
  4. foo=rxfuncquery('sysloadfuncs')
  5. if foo=1 then do
  6.   say 'Loading REXXUtil library '
  7.   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8.   call SysLoadFuncs
  9. end
  10.  
  11.  
  12. foo=rxfuncquery('rexxlibregister')
  13. if foo=1 then do
  14.  say ' loading REXXLIB '
  15.  call rxfuncadd 'rexxlibregister','rexxlib', 'rexxlibregister'
  16.  call rexxlibregister
  17. end
  18.  
  19.  
  20. if isdel=""  then do
  21.   a=sysfiledelete('wow.rxl')
  22.   foo=macrosave('wow.rxl')
  23.  if foo=2 then do
  24.       say " mspace is empty "
  25.       exit
  26.  end
  27. end
  28.  
  29. if  abbrev(translate(isdel),'D')=1 then do
  30.    foo=macroclear()
  31.     say " clearing macrospace " foo
  32. end
  33.  
  34. if abbrev(isdel,"L")=1 then do
  35.     foo=macroload(isfil)
  36.     say " Loading macrolib " isarg " = " foo
  37. end
  38.  
  39. if  isdel="?" | abbrev(isdel,'H')=1 then do
  40.      say " MSPACE  (no arguments) : show contents of macrospace "
  41.     say " MSPACE D : delete all procedures in macrospace (careful, it's global "
  42.    say " MSPACE L : Load a macrospace library "
  43. end
  44.  
  45.  
  46. exit
  47.  
  48.